object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 114
  Height = 413
  Width = 608
  object scSge: TSQLConnection
    ConnectionName = 'clinica'
    DriverName = 'UIB FireBird15'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpUIBfire15.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=UIB FireBird15'
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=C:\Arquivos de programas\meta\docsis\bd\clinica.fdb'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet=win1252'
      'SQLDialect=3'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=SYSDBA'
      'WaitOnLocks=True')
    VendorLib = 'fbclient.dll'
    Left = 8
    Top = 4
  end
  object dsSenha: TDataSource
    DataSet = CDSSenha
    Left = 130
    Top = 8
  end
  object CDSSenha: TSQLClientDataSet
    CommandText = 'TABSENHAS'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    CommandType = ctTable
    DBConnection = scSge
    Left = 72
    Top = 8
    object CDSSenhaLOGIN: TStringField
      FieldName = 'LOGIN'
      Required = True
    end
    object CDSSenhaSENHA: TStringField
      FieldName = 'SENHA'
      Size = 10
    end
    object CDSSenhaPERFIL: TStringField
      FieldName = 'PERFIL'
      Size = 15
    end
  end
  object SQLDataSet1: TSQLDataSet
    SQLConnection = scSge
    CommandText = 'select * from PACIENTE '#13#10'where COD_PACIENTE = :pcod'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    Left = 96
    Top = 80
    object SQLDataSet1COD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLDataSet1NOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object SQLDataSet1SEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object SQLDataSet1COR: TStringField
      FieldName = 'COR'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object SQLDataSet1EST_CIVIL: TStringField
      FieldName = 'EST_CIVIL'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1DATA_NASC: TDateField
      FieldName = 'DATA_NASC'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1CATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1PROFISSAO: TStringField
      FieldName = 'PROFISSAO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object SQLDataSet1RUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object SQLDataSet1NR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object SQLDataSet1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1BAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object SQLDataSet1CIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object SQLDataSet1UF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1CEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object SQLDataSet1FONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object SQLDataSet1FONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object SQLDataSet1FONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object SQLDataSet1CIC: TStringField
      FieldName = 'CIC'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object SQLDataSet1RG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object SQLDataSet1HISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object SQLDataSet1SUB_CATEGORIA: TStringField
      FieldName = 'SUB_CATEGORIA'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object SQLDataSet1SOBRENOME: TStringField
      FieldName = 'SOBRENOME'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1RGORGAOEMISSOR: TStringField
      FieldName = 'RGORGAOEMISSOR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object SQLDataSet1RGUF: TStringField
      FieldName = 'RGUF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1CTPS: TStringField
      FieldName = 'CTPS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object SQLDataSet1SERIE: TStringField
      FieldName = 'SERIE'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object SQLDataSet1CARDIOCIRCULA: TStringField
      FieldName = 'CARDIOCIRCULA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1PULMONARES: TStringField
      FieldName = 'PULMONARES'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1RENAIS: TStringField
      FieldName = 'RENAIS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1DIGESTIVOS: TStringField
      FieldName = 'DIGESTIVOS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1ENDOCRINOS: TStringField
      FieldName = 'ENDOCRINOS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1REUMATICOS: TStringField
      FieldName = 'REUMATICOS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1CIRURGICOS: TStringField
      FieldName = 'CIRURGICOS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1NEOPLASTICOS: TStringField
      FieldName = 'NEOPLASTICOS'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1INFECTOCONTAGIO: TStringField
      FieldName = 'INFECTOCONTAGIO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1NEUROLOGICO: TStringField
      FieldName = 'NEUROLOGICO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet1AUDIOLOGICO: TStringField
      FieldName = 'AUDIOLOGICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1OFTALMOLOGICO: TStringField
      FieldName = 'OFTALMOLOGICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1LENTESCORRETORAS: TStringField
      FieldName = 'LENTESCORRETORAS'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1PERTO: TStringField
      FieldName = 'PERTO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1LONGE: TStringField
      FieldName = 'LONGE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1SANGUETIPO: TStringField
      FieldName = 'SANGUETIPO'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1RH: TStringField
      FieldName = 'RH'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1DEFFISICA: TStringField
      FieldName = 'DEFFISICA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1PROTESE: TStringField
      FieldName = 'PROTESE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1TIPOPROTESE: TStringField
      FieldName = 'TIPOPROTESE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1IMPLANTE: TStringField
      FieldName = 'IMPLANTE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1TIPOIMPLANTE: TStringField
      FieldName = 'TIPOIMPLANTE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ACIDENTETRAB: TStringField
      FieldName = 'ACIDENTETRAB'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1CID10: TStringField
      FieldName = 'CID10'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1TIPOACIDENTE: TStringField
      FieldName = 'TIPOACIDENTE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1DATAACIDENTE: TDateField
      FieldName = 'DATAACIDENTE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1AFASTAMENTO: TStringField
      FieldName = 'AFASTAMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object SQLDataSet1INSS: TStringField
      FieldName = 'INSS'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1DEPFARMACOS: TStringField
      FieldName = 'DEPFARMACOS'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1FREQDEPFARMACOS: TStringField
      FieldName = 'FREQDEPFARMACOS'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1OUTROSANTECEDE: TStringField
      FieldName = 'OUTROSANTECEDE'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object SQLDataSet1PRATICAESPORTE: TStringField
      FieldName = 'PRATICAESPORTE'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1TIPOESPORTE: TStringField
      FieldName = 'TIPOESPORTE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1FREQESPORTE: TStringField
      FieldName = 'FREQESPORTE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1TABAGISMO: TStringField
      FieldName = 'TABAGISMO'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ETILISMO: TStringField
      FieldName = 'ETILISMO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1SOCIAL: TStringField
      FieldName = 'SOCIAL'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1DEPENDETILISMO: TStringField
      FieldName = 'DEPENDETILISMO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1TIPODEPENDETILISMO: TStringField
      FieldName = 'TIPODEPENDETILISMO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet1DOSES: TSmallintField
      FieldName = 'DOSES'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1MENARCA: TSmallintField
      FieldName = 'MENARCA'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1CICLO: TSmallintField
      FieldName = 'CICLO'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1GRAVIDEZ: TSmallintField
      FieldName = 'GRAVIDEZ'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ABORTO: TSmallintField
      FieldName = 'ABORTO'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1PARTONORMAL: TSmallintField
      FieldName = 'PARTONORMAL'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1PARTOCESAREA: TSmallintField
      FieldName = 'PARTOCESAREA'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1FORCEPS: TSmallintField
      FieldName = 'FORCEPS'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1NV: TSmallintField
      FieldName = 'NV'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1NM: TSmallintField
      FieldName = 'NM'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1CITONCOTICA: TStringField
      FieldName = 'CITONCOTICA'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1PEDIODICIDADE: TStringField
      FieldName = 'PEDIODICIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1MENOPAUSA: TStringField
      FieldName = 'MENOPAUSA'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1OUTROSSAUDEMULHER: TStringField
      FieldName = 'OUTROSSAUDEMULHER'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object SQLDataSet1ANTITETANICA1: TStringField
      FieldName = 'ANTITETANICA1'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ANTITETANICA2: TStringField
      FieldName = 'ANTITETANICA2'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ANTITETANICA3: TStringField
      FieldName = 'ANTITETANICA3'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ANTIHEPATITE1: TStringField
      FieldName = 'ANTIHEPATITE1'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ANTIHEPATITE2: TStringField
      FieldName = 'ANTIHEPATITE2'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1ANTIHEPATITE3: TStringField
      FieldName = 'ANTIHEPATITE3'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1OUTRASIMUNIZACOES: TStringField
      FieldName = 'OUTRASIMUNIZACOES'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object SQLDataSet1FUMA: TStringField
      FieldName = 'FUMA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object SQLDataSet1METODOANTICONCEP: TStringField
      FieldName = 'METODOANTICONCEP'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 176
    Top = 80
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider1'
    BeforePost = ClientDataSet1BeforePost
    OnNewRecord = ClientDataSet1NewRecord
    Left = 264
    Top = 80
    object ClientDataSet1COD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object ClientDataSet1NOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ClientDataSet1SEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object ClientDataSet1COR: TStringField
      FieldName = 'COR'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object ClientDataSet1EST_CIVIL: TStringField
      FieldName = 'EST_CIVIL'
      ProviderFlags = [pfInUpdate]
    end
    object ClientDataSet1DATA_NASC: TDateField
      FieldName = 'DATA_NASC'
      ProviderFlags = [pfInUpdate]
      EditMask = '99/99/9999;1;_'
    end
    object ClientDataSet1CATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object ClientDataSet1PROFISSAO: TStringField
      FieldName = 'PROFISSAO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object ClientDataSet1RUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object ClientDataSet1NR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object ClientDataSet1COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object ClientDataSet1BAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object ClientDataSet1CIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object ClientDataSet1UF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object ClientDataSet1CEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object ClientDataSet1FONE: TStringField
      Alignment = taCenter
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object ClientDataSet1FONE1: TStringField
      Alignment = taCenter
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object ClientDataSet1FONE2: TStringField
      Alignment = taCenter
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object ClientDataSet1CIC: TStringField
      Alignment = taCenter
      FieldName = 'CIC'
      ProviderFlags = [pfInUpdate]
      EditMask = '000.000.000-00;1;_'
      Size = 14
    end
    object ClientDataSet1RG: TStringField
      Alignment = taCenter
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object ClientDataSet1HISTORICO: TBlobField
      FieldName = 'HISTORICO'
      Size = 1
    end
    object ClientDataSet1SUB_CATEGORIA: TStringField
      FieldName = 'SUB_CATEGORIA'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object ClientDataSet1SOBRENOME: TStringField
      FieldName = 'SOBRENOME'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object ClientDataSet1RGORGAOEMISSOR: TStringField
      FieldName = 'RGORGAOEMISSOR'
      Size = 5
    end
    object ClientDataSet1RGUF: TStringField
      FieldName = 'RGUF'
      Size = 2
    end
    object ClientDataSet1CTPS: TStringField
      FieldName = 'CTPS'
      Size = 10
    end
    object ClientDataSet1SERIE: TStringField
      FieldName = 'SERIE'
      Size = 5
    end
    object ClientDataSet1CARDIOCIRCULA: TStringField
      FieldName = 'CARDIOCIRCULA'
      Size = 2
    end
    object ClientDataSet1PULMONARES: TStringField
      FieldName = 'PULMONARES'
      Size = 2
    end
    object ClientDataSet1RENAIS: TStringField
      FieldName = 'RENAIS'
      Size = 2
    end
    object ClientDataSet1DIGESTIVOS: TStringField
      FieldName = 'DIGESTIVOS'
      Size = 2
    end
    object ClientDataSet1ENDOCRINOS: TStringField
      FieldName = 'ENDOCRINOS'
      Size = 2
    end
    object ClientDataSet1REUMATICOS: TStringField
      FieldName = 'REUMATICOS'
      Size = 2
    end
    object ClientDataSet1CIRURGICOS: TStringField
      FieldName = 'CIRURGICOS'
      Size = 2
    end
    object ClientDataSet1NEOPLASTICOS: TStringField
      FieldName = 'NEOPLASTICOS'
      Size = 2
    end
    object ClientDataSet1INFECTOCONTAGIO: TStringField
      FieldName = 'INFECTOCONTAGIO'
      Size = 2
    end
    object ClientDataSet1NEUROLOGICO: TStringField
      FieldName = 'NEUROLOGICO'
      Size = 2
    end
    object ClientDataSet1AUDIOLOGICO: TStringField
      FieldName = 'AUDIOLOGICO'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1OFTALMOLOGICO: TStringField
      FieldName = 'OFTALMOLOGICO'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1LENTESCORRETORAS: TStringField
      FieldName = 'LENTESCORRETORAS'
      Size = 30
    end
    object ClientDataSet1PERTO: TStringField
      FieldName = 'PERTO'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1LONGE: TStringField
      FieldName = 'LONGE'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1SANGUETIPO: TStringField
      FieldName = 'SANGUETIPO'
    end
    object ClientDataSet1RH: TStringField
      FieldName = 'RH'
    end
    object ClientDataSet1DEFFISICA: TStringField
      FieldName = 'DEFFISICA'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1PROTESE: TStringField
      FieldName = 'PROTESE'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1TIPOPROTESE: TStringField
      FieldName = 'TIPOPROTESE'
    end
    object ClientDataSet1IMPLANTE: TStringField
      FieldName = 'IMPLANTE'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1TIPOIMPLANTE: TStringField
      FieldName = 'TIPOIMPLANTE'
    end
    object ClientDataSet1ACIDENTETRAB: TStringField
      FieldName = 'ACIDENTETRAB'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1CID10: TStringField
      FieldName = 'CID10'
    end
    object ClientDataSet1TIPOACIDENTE: TStringField
      FieldName = 'TIPOACIDENTE'
    end
    object ClientDataSet1DATAACIDENTE: TDateField
      FieldName = 'DATAACIDENTE'
    end
    object ClientDataSet1AFASTAMENTO: TStringField
      FieldName = 'AFASTAMENTO'
      Size = 10
    end
    object ClientDataSet1INSS: TStringField
      FieldName = 'INSS'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1DEPFARMACOS: TStringField
      FieldName = 'DEPFARMACOS'
      Size = 30
    end
    object ClientDataSet1FREQDEPFARMACOS: TStringField
      FieldName = 'FREQDEPFARMACOS'
      Size = 30
    end
    object ClientDataSet1OUTROSANTECEDE: TStringField
      FieldName = 'OUTROSANTECEDE'
      Size = 300
    end
    object ClientDataSet1PRATICAESPORTE: TStringField
      FieldName = 'PRATICAESPORTE'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1TIPOESPORTE: TStringField
      FieldName = 'TIPOESPORTE'
      Size = 30
    end
    object ClientDataSet1FREQESPORTE: TStringField
      FieldName = 'FREQESPORTE'
      Size = 30
    end
    object ClientDataSet1TABAGISMO: TStringField
      FieldName = 'TABAGISMO'
    end
    object ClientDataSet1ETILISMO: TStringField
      FieldName = 'ETILISMO'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1SOCIAL: TStringField
      FieldName = 'SOCIAL'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1DEPENDETILISMO: TStringField
      FieldName = 'DEPENDETILISMO'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1TIPODEPENDETILISMO: TStringField
      FieldName = 'TIPODEPENDETILISMO'
      Size = 30
    end
    object ClientDataSet1DOSES: TSmallintField
      FieldName = 'DOSES'
    end
    object ClientDataSet1MENARCA: TSmallintField
      FieldName = 'MENARCA'
    end
    object ClientDataSet1CICLO: TSmallintField
      FieldName = 'CICLO'
    end
    object ClientDataSet1GRAVIDEZ: TSmallintField
      FieldName = 'GRAVIDEZ'
    end
    object ClientDataSet1ABORTO: TSmallintField
      FieldName = 'ABORTO'
    end
    object ClientDataSet1PARTONORMAL: TSmallintField
      FieldName = 'PARTONORMAL'
    end
    object ClientDataSet1PARTOCESAREA: TSmallintField
      FieldName = 'PARTOCESAREA'
    end
    object ClientDataSet1FORCEPS: TSmallintField
      FieldName = 'FORCEPS'
    end
    object ClientDataSet1NV: TSmallintField
      FieldName = 'NV'
    end
    object ClientDataSet1NM: TSmallintField
      FieldName = 'NM'
    end
    object ClientDataSet1CITONCOTICA: TStringField
      FieldName = 'CITONCOTICA'
    end
    object ClientDataSet1PEDIODICIDADE: TStringField
      FieldName = 'PEDIODICIDADE'
    end
    object ClientDataSet1MENOPAUSA: TStringField
      FieldName = 'MENOPAUSA'
    end
    object ClientDataSet1OUTROSSAUDEMULHER: TStringField
      FieldName = 'OUTROSSAUDEMULHER'
      Size = 300
    end
    object ClientDataSet1ANTITETANICA1: TStringField
      FieldName = 'ANTITETANICA1'
    end
    object ClientDataSet1ANTITETANICA2: TStringField
      FieldName = 'ANTITETANICA2'
    end
    object ClientDataSet1ANTITETANICA3: TStringField
      FieldName = 'ANTITETANICA3'
    end
    object ClientDataSet1ANTIHEPATITE1: TStringField
      FieldName = 'ANTIHEPATITE1'
    end
    object ClientDataSet1ANTIHEPATITE2: TStringField
      FieldName = 'ANTIHEPATITE2'
    end
    object ClientDataSet1ANTIHEPATITE3: TStringField
      FieldName = 'ANTIHEPATITE3'
    end
    object ClientDataSet1OUTRASIMUNIZACOES: TStringField
      FieldName = 'OUTRASIMUNIZACOES'
      Size = 300
    end
    object ClientDataSet1FUMA: TStringField
      FieldName = 'FUMA'
      FixedChar = True
      Size = 1
    end
    object ClientDataSet1METODOANTICONCEP: TStringField
      FieldName = 'METODOANTICONCEP'
      Size = 150
    end
  end
  object proc_paciente: TSQLClientDataSet
    CommandText = 
      'select COD_PACIENTE, SOBRENOME, NOME from PACIENTE '#13#10'where NOME ' +
      'like :pnome'#13#10'order by NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 336
    Top = 80
    object proc_pacienteCOD_PACIENTE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_PACIENTE'
      Required = True
    end
    object proc_pacienteNOME: TStringField
      DisplayLabel = 'Nome do Paciente'
      FieldName = 'NOME'
      Size = 60
    end
    object proc_pacienteSOBRENOME: TStringField
      DisplayLabel = 'Sobrenome'
      FieldName = 'SOBRENOME'
      Size = 30
    end
  end
  object sds_consulta: TSQLDataSet
    SQLConnection = scSge
    CommandText = 
      'select cons.ACIDENTETRAB, cons.ACUIDADE_OLHOD, cons.ACUIDADE_OLH' +
      'OE, cons.ALTURA, cons.ANT_USADO, cons.AUDIOMETRIA, cons.BIOLOGIC' +
      'O, cons.CAMPOVISUAL, cons.COD_CONSULTA, cons.COD_PACIENTE, cons.' +
      'DATA_CONSULTA, cons.DATA_RETORNO, cons.DATA_RETORNO1, cons.DATA_' +
      'RETORNO2, cons.DINAMOMETRIA_MAOD, cons.DINAMOMETRIA_MAOE, cons.E' +
      'MPRESA, cons.EPI, cons.ERGONOMICO, cons.ESPIROMETRIA, CASE WHEN ' +
      'cons.EXAMELAB IS NULL THEN '#39'False'#39' when cons.EXAMELAB = '#39'T'#39' then' +
      ' '#39'True'#39' when cons.EXAMELAB = '#39'F'#39' then '#39'False'#39' end as EXAMELAB, c' +
      'ons.EXAMES, cons.EX_ANT, cons.FISICO, cons.FREQ_CARDIACA, cons.F' +
      'UNCAO, cons.HISTORICO, cons.HIST_ANT, cons.INSS, cons.LTS, cons.' +
      'MECANICO, cons.MED_ANT, cons.NEST_CONSULTA, cons.OUTROS, cons.OU' +
      'TROSEXAME, cons.PESO, cons.PRESSAO, cons.QUIMICO, cons.RAIOX, co' +
      'ns.RESTRICOES, cons.SENSOCROMATICO, cons.STATUS, cons.TEMPERATUR' +
      'A, cons.TEMPOSERVICO, cons.TIPO, cons.VALOR_CONSULTA, cons.COD_M' +
      'EDICO, cons.DTA1, cons.DTA2, cons.DTA3, cons.DTA4, cons.DTA5, pa' +
      'c.NOME '#13#10'from CONSULTA cons '#13#10'left outer join PACIENTE pac '#13#10'on ' +
      'pac.COD_PACIENTE=cons.COD_PACIENTE '#13#10'where cons.COD_PACIENTE = :' +
      'pcod '#13#10'order by cons.COD_CONSULTA'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    Left = 96
    Top = 136
    object sds_consultaCOD_CONSULTA: TIntegerField
      FieldName = 'COD_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_consultaCOD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaEXAMES: TBlobField
      FieldName = 'EXAMES'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaPRESSAO: TStringField
      FieldName = 'PRESSAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_consultaTEMPERATURA: TStringField
      FieldName = 'TEMPERATURA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_consultaFREQ_CARDIACA: TStringField
      FieldName = 'FREQ_CARDIACA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_consultaANT_USADO: TBlobField
      FieldName = 'ANT_USADO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaNEST_CONSULTA: TBlobField
      FieldName = 'NEST_CONSULTA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaDATA_CONSULTA: TDateField
      FieldName = 'DATA_CONSULTA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaDATA_RETORNO: TDateField
      FieldName = 'DATA_RETORNO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaVALOR_CONSULTA: TFloatField
      FieldName = 'VALOR_CONSULTA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 60
    end
    object sds_consultaSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_consultaHIST_ANT: TBlobField
      FieldName = 'HIST_ANT'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaEX_ANT: TBlobField
      FieldName = 'EX_ANT'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaMED_ANT: TBlobField
      FieldName = 'MED_ANT'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaDATA_RETORNO1: TDateField
      FieldName = 'DATA_RETORNO1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaDATA_RETORNO2: TDateField
      FieldName = 'DATA_RETORNO2'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_consultaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object sds_consultaFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object sds_consultaTEMPOSERVICO: TStringField
      FieldName = 'TEMPOSERVICO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaALTURA: TFloatField
      FieldName = 'ALTURA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaPESO: TFloatField
      FieldName = 'PESO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaACIDENTETRAB: TStringField
      FieldName = 'ACIDENTETRAB'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_consultaLTS: TStringField
      FieldName = 'LTS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_consultaINSS: TStringField
      FieldName = 'INSS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sds_consultaEPI: TStringField
      FieldName = 'EPI'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sds_consultaEXAMELAB: TStringField
      FieldName = 'EXAMELAB'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaAUDIOMETRIA: TStringField
      FieldName = 'AUDIOMETRIA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaESPIROMETRIA: TStringField
      FieldName = 'ESPIROMETRIA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaRAIOX: TStringField
      FieldName = 'RAIOX'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaOUTROS: TStringField
      FieldName = 'OUTROS'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaOUTROSEXAME: TStringField
      FieldName = 'OUTROSEXAME'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaQUIMICO: TStringField
      FieldName = 'QUIMICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaFISICO: TStringField
      FieldName = 'FISICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaBIOLOGICO: TStringField
      FieldName = 'BIOLOGICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaERGONOMICO: TStringField
      FieldName = 'ERGONOMICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaMECANICO: TStringField
      FieldName = 'MECANICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object sds_consultaRESTRICOES: TStringField
      FieldName = 'RESTRICOES'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sds_consultaCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_consultaACUIDADE_OLHOD: TStringField
      FieldName = 'ACUIDADE_OLHOD'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaACUIDADE_OLHOE: TStringField
      FieldName = 'ACUIDADE_OLHOE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaCAMPOVISUAL: TStringField
      FieldName = 'CAMPOVISUAL'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaDINAMOMETRIA_MAOD: TStringField
      FieldName = 'DINAMOMETRIA_MAOD'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaDINAMOMETRIA_MAOE: TStringField
      FieldName = 'DINAMOMETRIA_MAOE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaSENSOCROMATICO: TStringField
      FieldName = 'SENSOCROMATICO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_consultaDTA1: TDateField
      FieldName = 'DTA1'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sds_consultaDTA2: TDateField
      FieldName = 'DTA2'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sds_consultaDTA3: TDateField
      FieldName = 'DTA3'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sds_consultaDTA4: TDateField
      FieldName = 'DTA4'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sds_consultaDTA5: TDateField
      FieldName = 'DTA5'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
  end
  object dsp_consulta: TDataSetProvider
    DataSet = sds_consulta
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 176
    Top = 136
  end
  object cds_consulta: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_consulta'
    BeforePost = cds_consultaBeforePost
    OnNewRecord = cds_consultaNewRecord
    Left = 256
    Top = 136
    object cds_consultaCOD_CONSULTA: TIntegerField
      FieldName = 'COD_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_consultaCOD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '000'
    end
    object cds_consultaHISTORICO: TBlobField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaEXAMES: TBlobField
      FieldName = 'EXAMES'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaPRESSAO: TStringField
      FieldName = 'PRESSAO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!9999/9999;1;_'
      Size = 10
    end
    object cds_consultaTEMPERATURA: TStringField
      FieldName = 'TEMPERATURA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_consultaFREQ_CARDIACA: TStringField
      FieldName = 'FREQ_CARDIACA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_consultaANT_USADO: TBlobField
      FieldName = 'ANT_USADO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaNEST_CONSULTA: TBlobField
      FieldName = 'NEST_CONSULTA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaDATA_CONSULTA: TDateField
      FieldName = 'DATA_CONSULTA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_consultaDATA_RETORNO: TDateField
      FieldName = 'DATA_RETORNO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_consultaVALOR_CONSULTA: TFloatField
      FieldName = 'VALOR_CONSULTA'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_consultaNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 60
    end
    object cds_consultaSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_consultaHIST_ANT: TBlobField
      FieldName = 'HIST_ANT'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaEX_ANT: TBlobField
      FieldName = 'EX_ANT'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaMED_ANT: TBlobField
      FieldName = 'MED_ANT'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_consultaDATA_RETORNO1: TDateField
      FieldName = 'DATA_RETORNO1'
      ProviderFlags = [pfInUpdate]
    end
    object cds_consultaDATA_RETORNO2: TDateField
      FieldName = 'DATA_RETORNO2'
      ProviderFlags = [pfInUpdate]
    end
    object cds_consultaTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_consultaEMPRESA: TStringField
      FieldName = 'EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_consultaFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_consultaTEMPOSERVICO: TStringField
      FieldName = 'TEMPOSERVICO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaALTURA: TFloatField
      FieldName = 'ALTURA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_consultaPESO: TFloatField
      FieldName = 'PESO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_consultaACIDENTETRAB: TStringField
      FieldName = 'ACIDENTETRAB'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_consultaLTS: TStringField
      FieldName = 'LTS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_consultaINSS: TStringField
      FieldName = 'INSS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_consultaEPI: TStringField
      FieldName = 'EPI'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_consultaEXAMELAB: TStringField
      FieldName = 'EXAMELAB'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaAUDIOMETRIA: TStringField
      FieldName = 'AUDIOMETRIA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaESPIROMETRIA: TStringField
      FieldName = 'ESPIROMETRIA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaRAIOX: TStringField
      FieldName = 'RAIOX'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaOUTROS: TStringField
      FieldName = 'OUTROS'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaOUTROSEXAME: TStringField
      FieldName = 'OUTROSEXAME'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaQUIMICO: TStringField
      FieldName = 'QUIMICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaFISICO: TStringField
      FieldName = 'FISICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaBIOLOGICO: TStringField
      FieldName = 'BIOLOGICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaERGONOMICO: TStringField
      FieldName = 'ERGONOMICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaMECANICO: TStringField
      FieldName = 'MECANICO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_consultaRESTRICOES: TStringField
      FieldName = 'RESTRICOES'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_consultaCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_consultaACUIDADE_OLHOD: TStringField
      FieldName = 'ACUIDADE_OLHOD'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaACUIDADE_OLHOE: TStringField
      FieldName = 'ACUIDADE_OLHOE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaCAMPOVISUAL: TStringField
      FieldName = 'CAMPOVISUAL'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaDINAMOMETRIA_MAOD: TStringField
      FieldName = 'DINAMOMETRIA_MAOD'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaDINAMOMETRIA_MAOE: TStringField
      FieldName = 'DINAMOMETRIA_MAOE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaSENSOCROMATICO: TStringField
      FieldName = 'SENSOCROMATICO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_consultaDTA1: TDateField
      FieldName = 'DTA1'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '!99/99/0000;1;_'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_consultaDTA2: TDateField
      FieldName = 'DTA2'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '!99/99/0000;1;_'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_consultaDTA3: TDateField
      FieldName = 'DTA3'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '!99/99/0000;1;_'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_consultaDTA4: TDateField
      FieldName = 'DTA4'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '!99/99/0000;1;_'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_consultaDTA5: TDateField
      FieldName = 'DTA5'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '!99/99/0000;1;_'
      EditMask = '!99/99/0000;1;_'
    end
  end
  object proc_consulta: TSQLClientDataSet
    CommandText = 
      'select cons.COD_CONSULTA, pac.NOME '#13#10'from CONSULTA cons '#13#10'left o' +
      'uter join PACIENTE pac '#13#10'on pac.COD_PACIENTE=cons.COD_PACIENTE '#13 +
      #10'where NOME like :pnome'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 336
    Top = 136
    object proc_consultaCOD_CONSULTA: TIntegerField
      DisplayLabel = ' n'#186
      FieldName = 'COD_CONSULTA'
      Required = True
    end
    object proc_consultaNOME: TStringField
      DisplayLabel = 'Paciente'
      FieldName = 'NOME'
      Size = 60
    end
  end
  object dst_empresa: TSQLDataSet
    SQLConnection = scSge
    CommandText = 'select * from EMPRESA'
    Params = <>
    Left = 200
    Top = 8
    object dst_empresaRAZAO_EMPRESA: TStringField
      FieldName = 'RAZAO_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_empresaENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_empresaNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_empresaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_empresaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_empresaCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_empresaESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_empresaCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_empresaTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_empresaFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_empresaEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_empresaLOGOTIPO: TBlobField
      FieldName = 'LOGOTIPO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_empresaNOME_EMPRESA: TStringField
      FieldName = 'NOME_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_empresaCOD_EMPRESA: TIntegerField
      FieldName = 'COD_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_empresaCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_empresaHOME_PAGE: TStringField
      FieldName = 'HOME_PAGE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
  end
  object dsp_empresa: TDataSetProvider
    DataSet = dst_empresa
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 280
    Top = 8
  end
  object cds_empresa: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_empresa'
    BeforePost = cds_empresaBeforePost
    Left = 366
    Top = 8
    object cds_empresaCOD_EMPRESA: TIntegerField
      FieldName = 'COD_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_empresaNOME_EMPRESA: TStringField
      FieldName = 'NOME_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_empresaRAZAO_EMPRESA: TStringField
      FieldName = 'RAZAO_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_empresaENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_empresaNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_empresaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_empresaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_empresaCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_empresaESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_empresaCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '00.000\-999;1;_'
      Size = 10
    end
    object cds_empresaTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)0000-0000;1;_'
      Size = 13
    end
    object cds_empresaFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)0000-0000;1;_'
      Size = 13
    end
    object cds_empresaEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_empresaLOGOTIPO: TBlobField
      FieldName = 'LOGOTIPO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_empresaCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)0000-0000;1;_'
      Size = 13
    end
    object cds_empresaHOME_PAGE: TStringField
      FieldName = 'HOME_PAGE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
  end
  object sds_medico: TSQLDataSet
    SQLConnection = scSge
    CommandText = 
      'select * from MEDICO '#13#10'where ((COD_MEDICO = :pcod) or (:pcod = 9' +
      '999999))'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    Left = 96
    Top = 184
    object sds_medicoCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_medicoNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_medicoCRM: TStringField
      FieldName = 'CRM'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_medicoRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_medicoNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object sds_medicoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_medicoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_medicoCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object sds_medicoUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sds_medicoCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_medicoFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_medicoCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_medicoEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_medicoAREA: TStringField
      FieldName = 'AREA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object dsp_medico: TDataSetProvider
    DataSet = sds_medico
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 176
    Top = 184
  end
  object cds_medico: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_medico'
    BeforePost = cds_medicoBeforePost
    OnNewRecord = cds_medicoNewRecord
    Left = 256
    Top = 184
    object cds_medicoCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_medicoNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_medicoCRM: TStringField
      FieldName = 'CRM'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_medicoRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_medicoNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object cds_medicoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_medicoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_medicoCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_medicoUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_medicoCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      EditMask = '00.000\-999;1;_'
      Size = 10
    end
    object cds_medicoFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)0000-0000;1;_'
      Size = 13
    end
    object cds_medicoCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)0000-0000;1;_'
      Size = 13
    end
    object cds_medicoEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_medicoAREA: TStringField
      FieldName = 'AREA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
  end
  object proc_medico: TSQLClientDataSet
    CommandText = 
      'select COD_MEDICO, NOME_MEDICO '#13#10'from MEDICO '#13#10'where NOME_MEDICO' +
      ' like :nome'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 336
    Top = 184
    object proc_medicoCOD_MEDICO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_MEDICO'
      Required = True
    end
    object proc_medicoNOME_MEDICO: TStringField
      DisplayLabel = 'Nome do M'#233'dico'
      FieldName = 'NOME_MEDICO'
      Size = 60
    end
  end
  object sds_agenda: TSQLDataSet
    SQLConnection = scSge
    CommandText = 
      'select ag.*, me.NOME_MEDICO '#13#10'from AGENDA ag inner join MEDICO m' +
      'e on '#13#10'me.COD_MEDICO=ag.COD_MEDICO '#13#10'where ag.COD_MEDICO = :pcod' +
      ' and ag.DATA = :PHOJE'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'PHOJE'
        ParamType = ptInput
      end>
    Left = 96
    Top = 240
    object sds_agendaCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_agendaCOD_AGENDA: TIntegerField
      FieldName = 'COD_AGENDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_agendaTITULO: TStringField
      FieldName = 'TITULO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_agendaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object sds_agendaDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_agendaNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      ProviderFlags = []
      Size = 60
    end
    object sds_agendaHORA: TTimeField
      FieldName = 'HORA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_agendaANOT_DIA: TBlobField
      FieldName = 'ANOT_DIA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
  end
  object dsp_agenda: TDataSetProvider
    DataSet = sds_agenda
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 176
    Top = 240
  end
  object cds_agenda: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'PHOJE'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_agenda'
    BeforePost = cds_agendaBeforePost
    OnNewRecord = cds_agendaNewRecord
    Left = 261
    Top = 240
    object cds_agendaCOD_MEDICO: TIntegerField
      FieldName = 'COD_MEDICO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_agendaCOD_AGENDA: TIntegerField
      FieldName = 'COD_AGENDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_agendaTITULO: TStringField
      FieldName = 'TITULO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_agendaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_agendaDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_agendaNOME_MEDICO: TStringField
      FieldName = 'NOME_MEDICO'
      ProviderFlags = []
      Size = 60
    end
    object cds_agendaHORA: TTimeField
      FieldName = 'HORA'
    end
    object cds_agendaANOT_DIA: TBlobField
      FieldName = 'ANOT_DIA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
  end
  object cds_pront: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCONS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PPAC'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_pront'
    Left = 256
    Top = 304
    object cds_prontCOD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      Required = True
    end
    object cds_prontHISTORICO: TMemoField
      FieldName = 'HISTORICO'
      BlobType = ftMemo
      Size = 1
    end
    object cds_prontCOD_CONSULTA: TIntegerField
      FieldName = 'COD_CONSULTA'
      Required = True
    end
  end
  object dsp_pront: TDataSetProvider
    DataSet = sds_pront
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 168
    Top = 304
  end
  object sds_pront: TSQLDataSet
    SQLConnection = scSge
    CommandText = 
      'select * from PRONTUARIO WHERE COD_CONSULTA = :PCONS or COD_PACI' +
      'ENTE = :PPAC'
    Params = <
      item
        DataType = ftInteger
        Name = 'PCONS'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PPAC'
        ParamType = ptInput
      end>
    Left = 96
    Top = 304
    object sds_prontCOD_PACIENTE: TIntegerField
      FieldName = 'COD_PACIENTE'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object sds_prontHISTORICO: TMemoField
      FieldName = 'HISTORICO'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 1
    end
    object sds_prontCOD_CONSULTA: TIntegerField
      FieldName = 'COD_CONSULTA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object sds_procedimento: TSQLDataSet
    SQLConnection = scSge
    CommandText = 'select * from PROCEDIMENTOS '#13#10
    Params = <>
    Left = 352
    Top = 280
    object sds_procedimentoCOD_PROCEDIMENTO: TStringField
      FieldName = 'COD_PROCEDIMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 25
    end
    object sds_procedimentoDESC_PROCEDIMENTO: TStringField
      FieldName = 'DESC_PROCEDIMENTO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 120
    end
  end
  object dsp_procedimento: TDataSetProvider
    DataSet = sds_procedimento
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 432
    Top = 280
  end
  object cds_procedimento: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_procedimento'
    Left = 520
    Top = 280
    object cds_procedimentoCOD_PROCEDIMENTO: TStringField
      FieldName = 'COD_PROCEDIMENTO'
      Size = 25
    end
    object cds_procedimentoDESC_PROCEDIMENTO: TStringField
      FieldName = 'DESC_PROCEDIMENTO'
      Required = True
      Size = 120
    end
  end
  object cds_convenio: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider2'
    Left = 544
    Top = 88
    object cds_convenioCONVENIO: TStringField
      FieldName = 'CONVENIO'
      Required = True
      Size = 50
    end
    object cds_convenioENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 40
    end
    object cds_convenioNR: TStringField
      FieldName = 'NR'
      Size = 10
    end
    object cds_convenioCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 30
    end
    object cds_convenioBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 30
    end
    object cds_convenioCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object cds_convenioESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 2
    end
    object cds_convenioCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object cds_convenioTELEFONE: TStringField
      FieldName = 'TELEFONE'
      Size = 13
    end
    object cds_convenioFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object cds_convenioCELULAR: TStringField
      FieldName = 'CELULAR'
      Size = 13
    end
    object cds_convenioEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 80
    end
    object cds_convenioROME_PAGE: TStringField
      FieldName = 'ROME_PAGE'
      Size = 80
    end
    object cds_convenioTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = SQLDataSet2
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 472
    Top = 88
  end
  object SQLDataSet2: TSQLDataSet
    SQLConnection = scSge
    CommandText = 
      'select * from CONVENIO '#13#10'where ((CONVENIO = :pcod) or (:pcod = 9' +
      '999999))'
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    Left = 416
    Top = 88
    object SQLDataSet1CONVENIO: TStringField
      FieldName = 'CONVENIO'
      Required = True
      Size = 50
    end
    object SQLDataSet2ENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object SQLDataSet2NR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object SQLDataSet2COMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet2BAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet2CIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object SQLDataSet2ESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object SQLDataSet2CEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object SQLDataSet2TELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object SQLDataSet2FAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object SQLDataSet2CELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object SQLDataSet2EMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object SQLDataSet2ROME_PAGE: TStringField
      FieldName = 'ROME_PAGE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object SQLDataSet2TIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object s_6: TSQLDataSet
    SQLConnection = scSge
    CommandText = 
      'SELECT CAST(GEN_ID(GEN_COD_PAGAMENTO, 1) AS INTEGER) AS CODIGO F' +
      'ROM RDB$DATABASE;'
    Params = <>
    Left = 352
    Top = 328
    object s_6CODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
  object d_6: TDataSetProvider
    DataSet = s_6
    Constraints = True
    Options = [poAllowCommandText]
    Left = 384
    Top = 328
  end
  object c_6_genid: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'd_6'
    Left = 432
    Top = 328
    object c_6_genidCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
end
